Sprite 1984 - 1993/Sprite 1984 - 1993.iso/lib/perl/tzfile.ph

Text File | 1991-08-11 | 1KB | 49 lines

sub TZDIR {"/etc/zoneinfo";}
sub TZDEFAULT {"localtime";}
sub TZ_MAX_TIMES {370;}
sub NOSOLAR {1;}
if (!defined &NOSOLAR) {
    eval 'sub TZ_MAX_TYPES {256;}';
}
else {
    eval 'sub TZ_MAX_TYPES {10;}';
}
sub TZ_MAX_CHARS {50;}
sub SECS_PER_MIN {60;}
sub MINS_PER_HOUR {60;}
sub HOURS_PER_DAY {24;}
sub DAYS_PER_WEEK {7;}
sub DAYS_PER_NYEAR {365;}
sub DAYS_PER_LYEAR {366;}
sub SECS_PER_HOUR {( &SECS_PER_MIN *  &MINS_PER_HOUR);}
sub SECS_PER_DAY {(('long')  &SECS_PER_HOUR *  &HOURS_PER_DAY);}
sub MONS_PER_YEAR {12;}
sub TM_SUNDAY {0;}
sub TM_MONDAY {1;}
sub TM_TUESDAY {2;}
sub TM_WEDNESDAY {3;}
sub TM_THURSDAY {4;}
sub TM_FRIDAY {5;}
sub TM_SATURDAY {6;}
sub TM_JANUARY {0;}
sub TM_FEBRUARY {1;}
sub TM_MARCH {2;}
sub TM_APRIL {3;}
sub TM_MAY {4;}
sub TM_JUNE {5;}
sub TM_JULY {6;}
sub TM_AUGUST {7;}
sub TM_SEPTEMBER {8;}
sub TM_OCTOBER {9;}
sub TM_NOVEMBER {10;}
sub TM_DECEMBER {11;}
sub TM_SUNDAY {0;}
sub TM_YEAR_BASE {1900;}
sub EPOCH_YEAR {1970;}
sub EPOCH_WDAY { &TM_THURSDAY;}
sub isleap {
    local($y) = @_;
    eval "((($y) % 4) == 0 && (($y) % 100) != 0 || (($y) % 400) == 0)";
}
1;